home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / EDITOR / CRAYON.INC < prev    next >
Encoding:
Text File  |  1995-01-04  |  1.2 KB  |  70 lines
  1. // Solide Hexagonal, axe en x
  2. #declare  Hexagon = intersection {
  3.    plane { y, 1  }
  4.    plane { y, 1 rotate x*60 }
  5.    plane { y, 1 rotate x*120 }
  6.    plane { y, 1 rotate x*180 }
  7.    plane { y, 1 rotate x*240 }
  8.    plane { y, 1 rotate x*300 }
  9.    clipped_by { box { <-1.01,-1.3,-1.3>, <1.01,1.3,1.3> } }
  10. }
  11.  
  12. // Cône infini centré sur l'axe des x
  13. #declare QCone_X =
  14.  quadric
  15.   {<-1, 1, 1>,
  16.    < 0, 0, 0>,
  17.    < 0, 0, 0>, 0
  18.   }
  19.  
  20. // Cône fini centré sur l'axe des x
  21. #declare CONE_X = cone {x*0,0, x,1}
  22.  
  23.  
  24. #declare Bois_Crayon =     pigment {
  25.     wood
  26.     turbulence 0.1
  27.     color_map
  28.     {    [0 1    colour red 0.88 green 0.71 blue 0.50
  29.             colour red 0.98 green 0.81 blue 0.60    ]
  30.     }
  31.     scale <0.12, 10, 1>
  32.     rotate z*90
  33. }
  34.  
  35.  
  36. #declare Mine_Crayon =     intersection {
  37.     object {
  38.         CONE_X
  39.         scale <2,0.35,0.35>
  40.         translate x*-6.35
  41.     }
  42.     cylinder { x*-6.2, x*6, 0.1 }
  43. }
  44.  
  45. #declare Vernis_Crayon = intersection {
  46.     object {
  47.         Hexagon
  48.         scale <5.99,0.36,0.36>
  49.     }
  50.     object    {
  51.         QCone_X
  52.         scale <2,0.36,0.36>
  53.         translate x*-6.2
  54.     }
  55. }
  56.  
  57. #declare Corps_Crayon = object {
  58.     intersection {
  59.         object {
  60.             Hexagon
  61.             scale <6,0.35,0.35>
  62.         }
  63.         object    {
  64.             QCone_X
  65.             scale <2,0.35,0.35>
  66.             translate x*-6.3
  67.         }
  68.     }
  69. }
  70.